home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_21_1988_Transactor_Publishing.d64 / ml square roots (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  704b  |  24 lines
  1. 100 v%=rnd(0):rem .. this must be first
  2. 110 data 160,   2, 177,  45, 141, 161,   3, 169
  3. 120 data   0, 145,  45, 200, 177,  45, 141, 162
  4. 130 data   3, 160,   0, 140, 160,   3, 140, 163
  5. 140 data   3,  14, 162,   3,  46, 161,   3,  46
  6. 150 data 160,   3,  14, 162,   3,  46, 161,   3
  7. 160 data  46, 160,   3,  14, 163,   3, 173, 163
  8. 170 data   3,  10, 170, 232, 142, 164,   3, 173
  9. 180 data 160,   3, 205, 164,   3, 144,   9, 238
  10. 190 data 163,   3, 237, 164,   3, 141, 160,   3
  11. 200 data 200, 192,   8, 208, 204, 160,   3, 173
  12. 210 data 163,   3, 145,  45,  96
  13. 220 for j=828 to 912
  14. 230 read x: t=t+x: poke j,x
  15. 240 next j
  16. 250 if t<>8554 then stop
  17. 260 rem test run starts here
  18. 270 for j=1 to 10
  19. 280 v=int(rnd(1)*4096)
  20. 290 v%=v
  21. 300 sys 828
  22. 310 print "the root of";v;"is";v%
  23. 320 next j
  24.